BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / CommsService 2.0.2.sit / commsService 2.0.2 Final / Sample Scripts < prev
MacBinary | 1994-11-20 | 7.5 KB | [TEXT/ttxt]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Sample Scripts
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Nov 20 10:26:56 1994, modified Sun Nov 20 10:26:56 1994, creator SimpleText, type ASCII, 7124 bytes "Sample Scripts" , at 0x1c54 332 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ttxt]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 53 61 6d 70 6c 65 | 20 53 63 72 69 70 74 73 |..Sample| Scripts|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 74 74 78 | 74 01 00 00 00 00 00 00 |.TEXTttx|t.......|
|00000050| 00 00 00 00 00 1b d4 00 | 00 01 4c aa f5 1b 40 aa |........|..L...@.|
|00000060| f5 1b 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 26 4c 00 00 |........|....&L..|
|00000080| 45 78 61 6d 70 6c 65 20 | 4e 6f 2e 20 31 20 2d 20 |Example |No. 1 - |
|00000090| 55 73 65 20 6f 66 20 61 | 20 4c 6f 67 67 69 6e 67 |Use of a| Logging|
|000000a0| 20 46 69 6c 65 2e 0d a5 | a5 a5 a5 a5 a5 a5 a5 a5 | File...|........|
|000000b0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000000c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 0d 0d 6f |........|.......o|
|000000d0| 6e 20 44 6f 77 6e 4c 6f | 61 64 4d 61 69 6c 20 4c |n DownLo|adMail L|
|000000e0| 6f 67 46 69 6c 65 4e 61 | 6d 65 0d 20 20 47 6c 6f |ogFileNa|me.  Glo|
|000000f0| 62 61 6c 20 41 63 74 69 | 76 65 53 65 72 76 69 63 |bal Acti|veServic|
|00000100| 65 20 0d 20 20 2d 2d 0d | 20 20 2d 2d 20 41 74 74 |e .  --.|  -- Att|
|00000110| 61 63 68 20 74 68 65 20 | 6c 6f 67 67 69 6e 67 20 |ach the |logging |
|00000120| 66 69 6c 65 20 74 6f 20 | 74 68 65 20 73 65 72 76 |file to |the serv|
|00000130| 69 63 65 20 61 6e 64 20 | 74 68 65 6e 0d 20 20 2d |ice and |then.  -|
|00000140| 2d 20 65 78 65 63 75 74 | 65 20 74 68 65 20 73 65 |- execut|e the se|
|00000150| 72 76 69 63 65 20 73 63 | 72 69 70 74 20 74 68 61 |rvice sc|ript tha|
|00000160| 74 20 72 65 61 64 73 20 | 74 68 65 20 6d 61 69 6c |t reads |the mail|
|00000170| 20 61 6e 64 20 0d 20 20 | 2d 2d 20 66 69 6e 61 6c | and .  |-- final|
|00000180| 6c 79 20 64 65 74 61 63 | 68 20 74 68 65 20 6c 6f |ly detac|h the lo|
|00000190| 67 67 69 6e 67 20 66 69 | 6c 65 2e 0d 20 20 2d 2d |gging fi|le..  --|
|000001a0| 20 4e 42 2e 20 27 4c 6f | 67 46 69 6c 65 4e 61 6d | NB. 'Lo|gFileNam|
|000001b0| 65 27 20 69 73 20 74 68 | 65 20 66 75 6c 6c 20 70 |e' is th|e full p|
|000001c0| 61 74 68 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |ath name| of the |
|000001d0| 66 69 6c 65 20 74 6f 20 | 62 65 20 75 73 65 64 2e |file to |be used.|
|000001e0| 0d 20 20 2d 2d 20 20 20 | 0d 20 20 73 65 74 20 41 |.  --   |.  set A|
|000001f0| 74 74 61 63 68 4c 6f 67 | 46 69 6c 65 20 6f 66 20 |ttachLog|File of |
|00000200| 77 69 6e 64 6f 77 20 41 | 63 74 69 76 65 53 65 72 |window A|ctiveSer|
|00000210| 76 69 63 65 20 74 6f 20 | 4c 6f 67 46 69 6c 65 4e |vice to |LogFileN|
|00000220| 61 6d 65 0d 20 20 70 75 | 74 20 52 65 61 64 4d 61 |ame.  pu|t ReadMa|
|00000230| 69 6c 28 29 20 69 6e 74 | 6f 20 73 74 61 74 75 73 |il() int|o status|
|00000240| 0d 20 20 73 65 6e 64 20 | 22 44 65 74 61 63 68 4c |.  send |"DetachL|
|00000250| 6f 67 46 69 6c 65 22 20 | 74 6f 20 77 69 6e 64 6f |ogFile" |to windo|
|00000260| 77 20 41 63 74 69 76 65 | 53 65 72 76 69 63 65 0d |w Active|Service.|
|00000270| 20 20 2d 2d 0d 20 20 2d | 2d 20 49 66 20 74 68 65 |  --.  -|- If the|
|00000280| 20 72 65 61 64 69 6e 67 | 20 6f 66 20 74 68 65 20 | reading| of the |
|00000290| 6d 61 69 6c 20 77 65 6e | 74 20 4f 4b 20 28 74 68 |mail wen|t OK (th|
|000002a0| 65 20 73 65 72 76 69 63 | 65 20 68 61 6e 64 6c 65 |e servic|e handle|
|000002b0| 72 20 0d 20 20 2d 2d 20 | 72 65 74 75 72 6e 65 64 |r .  -- |returned|
|000002c0| 20 d4 74 72 75 65 d5 29 | 20 74 68 65 6e 20 61 73 | .true.)| then as|
|000002d0| 6b 20 69 66 20 69 74 73 | 20 4f 4b 20 74 6f 20 6c |k if its| OK to l|
|000002e0| 6f 67 20 6f 75 74 20 6f | 74 68 65 72 77 69 73 65 |og out o|therwise|
|000002f0| 0d 20 20 2d 2d 20 70 6f | 73 74 20 61 6e 20 65 72 |.  -- po|st an er|
|00000300| 72 6f 72 20 61 6e 64 20 | 6c 6f 67 6f 75 74 0d 20 |ror and |logout. |
|00000310| 20 2d 2d 0d 20 20 62 65 | 65 70 0d 20 20 69 66 20 | --.  be|ep.  if |
|00000320| 6e 6f 74 28 73 74 61 74 | 75 73 29 20 74 68 65 6e |not(stat|us) then|
|00000330| 0d 20 20 20 20 61 6e 73 | 77 65 72 20 22 45 72 72 |.    ans|wer "Err|
|00000340| 6f 72 20 64 65 74 65 63 | 74 65 64 20 77 68 69 6c |or detec|ted whil|
|00000350| 73 74 20 72 65 61 64 69 | 6e 67 20 6d 61 69 6c 22 |st readi|ng mail"|
|00000360| 20 77 69 74 68 20 22 43 | 6f 6e 74 69 6e 75 65 d3 | with "C|ontinue.|
|00000370| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 20 44 6f |.  end i|f.end Do|
|00000380| 77 6e 4c 6f 61 64 4d 61 | 69 6c 0d 0d 0d 6f 3d 3d |wnLoadMa|il...o==|
|00000390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000003d0| 3d 6f 0d 0d 0d 66 75 6e | 63 74 69 6f 6e 20 52 65 |=o...fun|ction Re|
|000003e0| 61 64 4d 61 69 6c 0d 20 | 20 47 6c 6f 62 61 6c 20 |adMail. | Global |
|000003f0| 41 63 74 69 76 65 53 65 | 72 76 69 63 65 2c 20 46 |ActiveSe|rvice, F|
|00000400| 6f 75 6e 64 53 74 72 69 | 6e 67 0d 20 20 2d 2d 0d |oundStri|ng.  --.|
|00000410| 20 20 2d 2d 20 53 74 61 | 72 74 20 74 68 65 20 70 |  -- Sta|rt the p|
|00000420| 72 6f 63 65 73 73 20 6f | 66 66 20 62 79 20 73 65 |rocess o|ff by se|
|00000430| 6e 64 69 6e 67 20 61 20 | 63 61 72 72 69 61 67 65 |nding a |carriage|
|00000440| 2d 72 65 74 75 72 6e 20 | 74 6f 20 62 72 69 6e 67 |-return |to bring|
|00000450| 20 75 70 20 74 68 65 0d | 20 20 2d 2d 20 6d 65 6e | up the.|  -- men|
|00000460| 75 2c 20 61 6e 64 20 74 | 68 65 6e 20 73 65 6c 65 |u, and t|hen sele|
|00000470| 63 74 20 74 68 65 20 61 | 70 70 72 6f 70 72 69 61 |ct the a|ppropria|
|00000480| 74 65 20 6f 70 74 69 6f | 6e 20 74 6f 20 64 6f 77 |te optio|n to dow|
|00000490| 6e 6c 6f 61 64 20 74 68 | 65 20 6d 61 69 6c 0d 20 |nload th|e mail. |
|000004a0| 20 2d 2d 0d 20 20 67 65 | 74 20 53 65 6e 64 54 6f | --.  ge|t SendTo|
|000004b0| 53 65 72 76 69 63 65 28 | 41 63 74 69 76 65 53 65 |Service(|ActiveSe|
|000004c0| 72 76 69 63 65 2c 20 72 | 65 74 75 72 6e 2c 20 22 |rvice, r|eturn, "|
|000004d0| 22 29 0d 20 20 69 66 20 | 45 78 70 65 63 74 46 72 |").  if |ExpectFr|
|000004e0| 6f 6d 53 65 72 76 69 63 | 65 28 41 63 74 69 76 65 |omServic|e(Active|
|000004f0| 53 65 72 76 69 63 65 2c | 20 32 30 2c 20 74 72 75 |Service,| 20, tru|
|00000500| 65 2c 20 74 72 75 65 2c | 20 22 53 6f 6d 65 20 70 |e, true,| "Some p|
|00000510| 72 6f 6d 70 74 22 29 20 | 74 68 65 6e 0d 20 20 20 |rompt") |then.   |
|00000520| 20 20 69 66 20 46 6f 75 | 6e 64 53 74 72 69 6e 67 |  if Fou|ndString|
|00000530| 20 3d 20 31 20 74 68 65 | 6e 20 20 20 20 20 20 0d | = 1 the|n      .|
|00000540| 20 20 20 20 20 20 20 20 | 67 65 74 20 53 65 6e 64 |        |get Send|
|00000550| 54 6f 53 65 72 76 69 63 | 65 28 41 63 74 69 76 65 |ToServic|e(Active|
|00000560| 53 65 72 76 69 63 65 2c | 20 22 53 6f 6d 65 20 4f |Service,| "Some O|
|00000570| 70 74 69 6f 6e 22 20 26 | 20 72 65 74 75 72 6e 2c |ption" &| return,|
|00000580| 20 22 22 29 0d 20 20 20 | 20 20 20 20 20 2d 2d 0d | "").   |     --.|
|00000590| 20 20 20 20 20 20 20 20 | 2d 2d 20 4b 65 65 70 20 |        |-- Keep |
|000005a0| 72 65 61 64 69 6e 67 20 | 73 65 72 76 69 63 65 20 |reading |service |
|000005b0| 75 6e 74 69 6c 20 d2 54 | 65 72 6d 69 6e 61 74 69 |until .T|erminati|
|000005c0| 6e 67 20 70 72 6f 6d 70 | 74 d3 20 64 65 74 65 63 |ng promp|t. detec|
|000005d0| 74 65 64 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 20 |ted.    |    --  |
|000005e0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 45 78 70 65 |.       | if Expe|
|000005f0| 63 74 46 72 6f 6d 53 65 | 72 76 69 63 65 28 41 63 |ctFromSe|rvice(Ac|
|00000600| 74 69 76 65 53 65 72 76 | 69 63 65 2c 20 33 30 30 |tiveServ|ice, 300|
|00000610| 2c 20 74 72 75 65 2c 20 | 74 72 75 65 2c 20 22 54 |, true, |true, "T|
|00000620| 65 72 6d 69 6e 61 74 69 | 6e 67 20 70 72 6f 6d 70 |erminati|ng promp|
|00000630| 74 22 29 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |t") then|.       |
|00000640| 20 20 20 20 20 69 66 20 | 46 6f 75 6e 64 53 74 72 |     if |FoundStr|
|00000650| 69 6e 67 20 3d 20 31 20 | 74 68 65 6e 20 72 65 74 |ing = 1 |then ret|
|00000660| 75 72 6e 20 74 72 75 65 | 0d 20 20 20 20 20 20 20 |urn true|.       |
|00000670| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 65 6e 64 | end if.|     end|
|00000680| 20 69 66 0d 20 20 65 6e | 64 20 69 66 0d 20 20 72 | if.  en|d if.  r|
|00000690| 65 74 75 72 6e 20 66 61 | 6c 73 65 0d 65 6e 64 20 |eturn fa|lse.end |
|000006a0| 52 65 61 64 4d 61 69 6c | 0d 0d 0d 0d 45 78 61 6d |ReadMail|....Exam|
|000006b0| 70 6c 65 20 4e 6f 2e 20 | 32 20 2d 20 44 69 72 65 |ple No. |2 - Dire|
|000006c0| 63 74 20 44 61 74 61 20 | 43 61 70 74 75 72 65 2e |ct Data |Capture.|
|000006d0| 0d a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000006e0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000006f0| a5 a5 a5 a5 a5 0d 0d 6f | 6e 20 43 61 70 74 75 72 |.......o|n Captur|
|00000700| 65 52 65 70 6f 72 74 0d | 0d 20 20 47 6c 6f 62 61 |eReport.|.  Globa|
|00000710| 6c 20 41 63 74 69 76 65 | 53 65 72 76 69 63 65 2c |l Active|Service,|
|00000720| 20 46 6f 75 6e 64 53 74 | 72 69 6e 67 2c 20 43 61 | FoundSt|ring, Ca|
|00000730| 70 74 75 72 65 64 44 61 | 74 61 0d 20 20 2d 2d 0d |pturedDa|ta.  --.|
|00000740| 20 20 2d 2d 20 53 74 65 | 70 20 74 68 72 6f 75 67 |  -- Ste|p throug|
|00000750| 68 20 74 68 65 20 76 61 | 72 69 6f 75 73 20 70 72 |h the va|rious pr|
|00000760| 6f 6d 70 74 73 20 6c 6f | 6f 6b 69 6e 67 20 66 6f |ompts lo|oking fo|
|00000770| 72 20 74 68 65 20 72 65 | 71 75 69 72 65 64 20 6f |r the re|quired o|
|00000780| 6e 65 0d 20 20 2d 2d 20 | 61 6e 64 20 74 68 65 6e |ne.  -- |and then|
|00000790| 20 63 61 70 74 75 72 65 | 20 64 61 74 61 20 75 6e | capture| data un|
|000007a0| 74 69 6c 20 74 68 65 20 | 74 65 72 6d 69 6e 61 74 |til the |terminat|
|000007b0| 69 6e 67 20 70 72 6f 6d | 70 74 20 69 73 20 66 6f |ing prom|pt is fo|
|000007c0| 75 6e 64 0d 20 20 2d 2d | 0d 20 20 69 66 20 45 78 |und.  --|.  if Ex|
|000007d0| 70 65 63 74 46 72 6f 6d | 53 65 72 76 69 63 65 28 |pectFrom|Service(|
|000007e0| 41 63 74 69 76 65 53 65 | 72 76 69 63 65 2c 20 31 |ActiveSe|rvice, 1|
|000007f0| 30 2c 20 74 72 75 65 2c | 20 74 72 75 65 2c 20 22 |0, true,| true, "|
|00000800| 53 6f 6d 65 20 70 72 6f | 6d 70 74 22 29 20 74 68 |Some pro|mpt") th|
|00000810| 65 6e 0d 20 20 20 20 20 | 69 66 20 46 6f 75 6e 64 |en.     |if Found|
|00000820| 53 74 72 69 6e 67 20 3d | 20 31 20 74 68 65 6e 0d |String =| 1 then.|
|00000830| 20 20 20 20 20 20 20 20 | 67 65 74 20 53 65 6e 64 |        |get Send|
|00000840| 54 6f 53 65 72 76 69 63 | 65 28 41 63 74 69 76 65 |ToServic|e(Active|
|00000850| 53 65 72 76 69 63 65 2c | 20 22 53 6f 6d 65 20 63 |Service,| "Some c|
|00000860| 6f 6d 6d 61 6e 64 22 20 | 26 20 72 65 74 75 72 6e |ommand" |& return|
|00000870| 2c 20 22 22 29 20 0d 20 | 20 20 20 20 20 20 20 2d |, "") . |       -|
|00000880| 2d 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 46 6f 75 |-.      |  -- Fou|
|00000890| 6e 64 20 69 74 20 73 6f | 20 63 61 70 74 75 72 65 |nd it so| capture|
|000008a0| 20 64 61 74 61 20 6e 6f | 77 0d 20 20 20 20 20 20 | data no|w.      |
|000008b0| 20 20 2d 2d 0d 20 20 20 | 20 20 20 20 20 70 75 74 |  --.   |     put|
|000008c0| 20 52 65 63 65 69 76 65 | 46 72 6f 6d 53 65 72 76 | Receive|FromServ|
|000008d0| 69 63 65 28 41 63 74 69 | 76 65 53 65 72 76 69 63 |ice(Acti|veServic|
|000008e0| 65 2c 20 31 30 2c 20 74 | 72 75 65 2c 20 74 72 75 |e, 10, t|rue, tru|
|000008f0| 65 2c 20 22 54 65 72 6d | 69 6e 61 74 69 6e 67 20 |e, "Term|inating |
|00000900| 70 72 6f 6d 70 74 22 29 | 20 c2 20 20 20 20 20 20 |prompt")| .      |
|00000910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000920| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 20 20 20 |    .   |        |
|00000930| 20 69 6e 74 6f 20 63 61 | 70 74 75 72 65 64 44 61 | into ca|pturedDa|
|00000940| 74 61 0d 20 20 20 20 20 | 20 20 20 2d 2d 0d 20 20 |ta.     |   --.  |
|00000950| 20 20 20 20 20 20 2d 2d | 20 49 66 20 74 68 65 20 |      --| If the |
|00000960| 73 74 72 69 6e 67 20 77 | 61 73 20 66 6f 75 6e 64 |string w|as found|
|00000970| 20 74 68 65 6e 20 71 75 | 69 74 20 74 68 65 20 70 | then qu|it the p|
|00000980| 72 6f 63 65 73 73 20 61 | 6e 64 20 72 65 74 75 72 |rocess a|nd retur|
|00000990| 6e 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 69 |n  .    |    -- i|
|000009a0| 6e 64 69 63 61 74 65 20 | d4 73 75 63 63 65 73 73 |ndicate |.success|
|000009b0| d5 20 74 6f 20 74 68 65 | 20 63 61 6c 6c 69 6e 67 |. to the| calling|
|000009c0| 20 63 6f 64 65 0d 20 20 | 20 20 20 20 20 20 2d 2d | code.  |      --|
|000009d0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 46 6f 75 6e |.       | if Foun|
|000009e0| 64 53 74 72 69 6e 67 20 | 3d 20 31 20 74 68 65 6e |dString |= 1 then|
|000009f0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 67 65 74 20 |.       |    get |
|00000a00| 53 65 6e 64 54 6f 53 65 | 72 76 69 63 65 28 41 63 |SendToSe|rvice(Ac|
|00000a10| 74 69 76 65 53 65 72 76 | 69 63 65 2c 20 22 51 75 |tiveServ|ice, "Qu|
|00000a20| 69 74 22 20 26 20 72 65 | 74 75 72 6e 2c 20 22 22 |it" & re|turn, ""|
|00000a30| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 72 65 74 |).      |     ret|
|00000a40| 75 72 6e 20 74 72 75 65 | 0d 20 20 20 20 20 20 20 |urn true|.       |
|00000a50| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 65 6e 64 | end if.|     end|
|00000a60| 20 69 66 0d 20 20 65 6e | 64 20 69 66 20 0d 20 20 | if.  en|d if .  |
|00000a70| 72 65 74 75 72 6e 20 66 | 61 6c 73 65 0d 65 6e 64 |return f|alse.end|
|00000a80| 20 43 61 70 74 75 72 65 | 52 65 70 6f 72 74 0d 0d | Capture|Report..|
|00000a90| 0d 0d 45 78 61 6d 70 6c | 65 20 4e 6f 2e 20 33 20 |..Exampl|e No. 3 |
|00000aa0| 2d 20 53 63 72 69 70 74 | 20 43 61 6e 63 65 6c 6c |- Script| Cancell|
|00000ab0| 69 6e 67 2e 0d a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |ing.....|........|
|00000ac0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|00000ad0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 0d 0d 6f 6e 20 45 78 |........|...on Ex|
|00000ae0| 61 6d 70 6c 65 48 61 6e | 64 6c 65 72 0d 20 20 47 |ampleHan|dler.  G|
|00000af0| 6c 6f 62 61 6c 20 53 63 | 72 69 70 74 53 74 61 74 |lobal Sc|riptStat|
|00000b00| 75 73 2c 20 41 6c 6c 6f | 77 43 61 6e 63 65 6c 2c |us, Allo|wCancel,|
|00000b10| 20 43 75 72 73 6f 72 54 | 6f 55 73 65 0d 20 20 20 | CursorT|oUse.   |
|00000b20| 20 20 20 20 20 20 20 0d | 20 20 20 2d 2d 0d 20 20 |       .|   --.  |
|00000b30| 20 2d 2d 20 53 65 74 20 | 74 68 65 20 41 59 53 20 | -- Set |the AYS |
|00000b40| 67 6c 6f 62 61 6c 73 20 | 66 6f 72 20 74 68 65 20 |globals |for the |
|00000b50| 66 6f 6c 6c 6f 77 69 6e | 67 20 65 6e 76 69 72 6f |followin|g enviro|
|00000b60| 6d 65 6e 74 20 2d 0d 20 | 20 20 2d 2d 0d 20 20 20 |ment -. |  --.   |
|00000b70| 2d 2d 20 44 69 73 70 6c | 61 79 20 74 68 65 20 73 |-- Displ|ay the s|
|00000b80| 70 65 63 69 61 6c 20 d4 | 63 61 6e 63 65 6c d5 20 |pecial .|cancel. |
|00000b90| 63 75 72 73 6f 72 20 77 | 68 69 6c 73 74 20 73 65 |cursor w|hilst se|
|00000ba0| 61 72 63 68 69 6e 67 20 | 66 6f 72 20 73 74 72 69 |arching |for stri|
|00000bb0| 6e 67 73 0d 20 20 20 2d | 2d 20 20 20 20 20 0d 20 |ngs.   -|-     . |
|00000bc0| 20 20 70 75 74 20 d2 63 | 61 6e 63 65 6c d3 20 69 |  put .c|ancel. i|
|00000bd0| 6e 74 6f 20 43 75 72 73 | 6f 72 54 6f 55 73 65 0d |nto Curs|orToUse.|
|00000be0| 20 20 20 2d 2d 0d 20 20 | 20 2d 2d 20 41 6c 6c 6f |   --.  | -- Allo|
|00000bf0| 77 20 63 61 6e 63 65 6c | 6c 69 6e 67 20 6f 66 20 |w cancel|ling of |
|00000c00| 74 68 65 20 d4 73 65 61 | 72 63 68 d5 20 66 75 6e |the .sea|rch. fun|
|00000c10| 63 74 69 6f 6e 73 20 62 | 79 20 74 68 65 20 75 73 |ctions b|y the us|
|00000c20| 65 20 6f 66 20 74 68 65 | 0d 20 20 20 2d 2d 20 43 |e of the|.   -- C|
|00000c30| 6f 6d 6d 61 6e 64 2d 70 | 65 72 69 6f 64 20 6b 65 |ommand-p|eriod ke|
|00000c40| 79 20 63 6f 6d 62 69 6e | 61 74 69 6f 6e 20 62 75 |y combin|ation bu|
|00000c50| 74 20 70 72 65 76 65 6e | 74 20 74 68 69 73 20 61 |t preven|t this a|
|00000c60| 63 74 69 6f 6e 20 61 6c | 73 6f 0d 20 20 20 2d 2d |ction al|so.   --|
|00000c70| 20 63 61 6e 63 65 6c 6c | 69 6e 67 20 74 68 65 20 | cancell|ing the |
|00000c80| 48 79 70 65 72 54 61 6c | 6b 20 73 63 72 69 70 74 |HyperTal|k script|
|00000c90| 20 74 68 61 74 20 69 73 | 20 72 75 6e 6e 69 6e 67 | that is| running|
|00000ca0| 2e 0d 20 20 20 2d 2d 0d | 20 20 20 70 75 74 20 74 |..   --.|   put t|
|00000cb0| 72 75 65 20 69 6e 74 6f | 20 41 6c 6c 6f 77 43 61 |rue into| AllowCa|
|00000cc0| 6e 63 65 6c 0d 20 20 20 | 73 65 74 20 74 68 65 20 |ncel.   |set the |
|00000cd0| 63 61 6e 74 41 62 6f 72 | 74 20 6f 66 20 74 68 69 |cantAbor|t of thi|
|00000ce0| 73 20 73 74 61 63 6b 20 | 74 6f 20 74 72 75 65 0d |s stack |to true.|
|00000cf0| 20 20 20 2d 2d 0d 20 20 | 20 2d 2d 20 4e 6f 77 20 |   --.  | -- Now |
|00000d00| 65 78 65 63 75 74 65 20 | 74 68 65 20 68 61 6e 64 |execute |the hand|
|00000d10| 6c 65 72 20 69 6e 20 74 | 68 65 20 64 65 73 69 72 |ler in t|he desir|
|00000d20| 65 64 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 0d 20 |ed envir|onment. |
|00000d30| 20 20 2d 2d 0d 20 20 20 | 70 75 74 20 53 6f 6d 65 |  --.   |put Some|
|00000d40| 46 75 63 74 69 6f 6e 28 | 29 20 69 6e 74 6f 20 72 |Fuction(|) into r|
|00000d50| 65 70 6c 79 0d 20 20 20 | 2d 2d 0d 20 20 20 2d 2d |eply.   |--.   --|
|00000d60| 20 52 65 73 65 74 20 74 | 68 65 20 65 6e 76 69 72 | Reset t|he envir|
|00000d70| 6f 6e 6d 65 6e 74 0d 20 | 20 20 2d 2d 0d 20 20 20 |onment. |  --.   |
|00000d80| 73 65 74 20 74 68 65 20 | 63 61 6e 74 41 62 6f 72 |set the |cantAbor|
|00000d90| 74 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 20 |t of thi|s stack |
|00000da0| 74 6f 20 66 61 6c 73 65 | 0d 20 20 20 70 75 74 20 |to false|.   put |
|00000db0| d2 62 75 73 79 d3 20 20 | 69 6e 74 6f 20 43 75 72 |.busy.  |into Cur|
|00000dc0| 73 6f 72 54 6f 55 73 65 | 0d 20 20 20 70 75 74 20 |sorToUse|.   put |
|00000dd0| 66 61 6c 73 65 20 69 6e | 74 6f 20 61 6c 6c 6f 77 |false in|to allow|
|00000de0| 43 61 6e 63 65 6c 0d 20 | 20 20 2d 2d 0d 20 20 20 |Cancel. |  --.   |
|00000df0| 2d 2d 20 44 65 74 65 72 | 6d 69 6e 65 20 73 74 61 |-- Deter|mine sta|
|00000e00| 74 75 73 20 61 6e 64 20 | 72 65 61 63 74 0d 20 20 |tus and |react.  |
|00000e10| 20 2d 2d 0d 20 20 20 2d | 2d 20 49 66 20 74 68 65 | --.   -|- If the|
|00000e20| 20 68 61 6e 64 6c 65 72 | 20 64 69 64 20 6e 6f 74 | handler| did not|
|00000e30| 20 63 6f 6d 70 6c 65 74 | 65 20 73 75 63 63 65 73 | complet|e succes|
|00000e40| 73 66 75 6c 6c 79 20 74 | 68 65 6e 0d 20 20 20 2d |sfully t|hen.   -|
|00000e50| 2d 20 64 65 74 65 72 6d | 69 6e 65 20 77 68 79 20 |- determ|ine why |
|00000e60| 69 74 20 64 69 64 6e d5 | 74 0d 20 20 20 2d 2d 0d |it didn.|t.   --.|
|00000e70| 20 20 20 69 66 20 6e 6f | 74 28 72 65 70 6c 79 29 |   if no|t(reply)|
|00000e80| 20 74 68 65 6e 0d 20 20 | 20 20 20 62 65 65 70 0d | then.  |   beep.|
|00000e90| 20 20 20 20 20 69 66 20 | 53 63 72 69 70 74 53 74 |     if |ScriptSt|
|00000ea0| 61 74 75 73 20 3d 20 22 | 43 61 6e 63 65 6c 22 20 |atus = "|Cancel" |
|00000eb0| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 61 6e 73 77 |then.   |    answ|
|00000ec0| 65 72 20 d2 43 61 6e 63 | 65 6c 6c 69 6e 67 20 54 |er .Canc|elling T|
|00000ed0| 72 61 6e 73 66 65 72 22 | 0d 20 20 20 20 20 20 20 |ransfer"|.       |
|00000ee0| 67 65 74 20 43 61 6e 63 | 65 6c 46 75 6e 63 74 69 |get Canc|elFuncti|
|00000ef0| 6f 6e 28 29 0d 20 20 20 | 20 20 65 6c 73 65 0d 20 |on().   |  else. |
|00000f00| 20 20 20 20 20 20 61 6e | 73 77 65 72 20 d2 54 72 |      an|swer .Tr|
|00000f10| 61 6e 73 66 65 72 20 43 | 72 61 73 68 65 64 22 0d |ansfer C|rashed".|
|00000f20| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 65 |     end| if.   e|
|00000f30| 6e 64 20 69 66 0d 65 6e | 64 20 45 78 61 6d 70 6c |nd if.en|d Exampl|
|00000f40| 65 48 61 6e 64 6c 65 72 | 0d 0d 0d 45 78 61 6d 70 |eHandler|...Examp|
|00000f50| 6c 65 20 4e 6f 2e 20 34 | 20 2d 20 43 68 61 72 61 |le No. 4| - Chara|
|00000f60| 63 74 65 72 20 50 61 69 | 72 20 4d 61 74 63 68 69 |cter Pai|r Matchi|
|00000f70| 6e 67 2e 0d a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |ng......|........|
|00000f80| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|00000f90| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 0d 0d 0d 6f |........|.......o|
|00000fa0| 6e 20 54 72 61 6e 73 66 | 65 72 46 69 6c 65 0d 20 |n Transf|erFile. |
|00000fb0| 20 47 6c 6f 62 61 6c 20 | 41 63 74 69 76 65 53 65 | Global |ActiveSe|
|00000fc0| 72 76 69 63 65 2c 20 46 | 6f 75 6e 64 53 74 72 69 |rvice, F|oundStri|
|00000fd0| 6e 67 2c 20 43 6f 6e 74 | 72 6f 6c 44 61 74 61 2c |ng, Cont|rolData,|
|00000fe0| 20 44 61 74 61 46 69 6c | 65 4e 61 6d 65 2c 20 43 | DataFil|eName, C|
|00000ff0| 75 72 73 6f 72 54 6f 55 | 73 65 0d 20 20 2d 2d 0d |ursorToU|se.  --.|
|00001000| 20 20 2d 2d 20 43 6f 6e | 73 74 72 75 63 74 20 61 |  -- Con|struct a|
|00001010| 6e 64 20 74 72 61 6e 73 | 6d 69 74 20 73 6f 6d 65 |nd trans|mit some|
|00001020| 20 6d 61 63 68 69 6e 65 | 20 73 70 65 63 69 66 69 | machine| specifi|
|00001030| 63 20 63 6f 6d 6d 61 6e | 64 20 74 68 61 74 20 73 |c comman|d that s|
|00001040| 74 61 72 74 73 20 74 68 | 65 0d 20 20 2d 2d 20 64 |tarts th|e.  -- d|
|00001050| 69 73 70 6c 61 79 20 6f | 66 20 73 6f 6d 65 20 66 |isplay o|f some f|
|00001060| 69 6c 65 20 74 68 61 74 | 20 77 65 20 6d 61 79 20 |ile that| we may |
|00001070| 63 61 70 74 75 72 65 20 | 74 6f 20 61 20 6c 6f 67 |capture |to a log|
|00001080| 67 69 6e 67 20 66 69 6c | 65 20 65 74 63 2e 0d 20 |ging fil|e etc.. |
|00001090| 20 2d 2d 0d 20 20 70 75 | 74 20 22 44 49 53 50 4c | --.  pu|t "DISPL|
|000010a0| 41 59 2d 46 49 4c 45 20 | 22 20 26 20 66 6c 64 20 |AY-FILE |" & fld |
|000010b0| 22 41 63 63 6f 75 6e 74 | 4e 61 6d 65 22 20 26 20 |"Account|Name" & |
|000010c0| 73 70 61 63 65 20 26 20 | 66 6c 64 20 22 46 69 6c |space & |fld "Fil|
|000010d0| 65 4e 61 6d 65 22 20 69 | 6e 74 6f 20 43 6f 6d 6d |eName" i|nto Comm|
|000010e0| 61 6e 64 0d 20 20 69 66 | 20 6e 6f 74 28 53 65 6e |and.  if| not(Sen|
|000010f0| 64 54 6f 53 65 72 76 69 | 63 65 28 d2 54 61 72 67 |dToServi|ce(.Targ|
|00001100| 65 74 4d 61 63 68 69 6e | 65 d3 2c 20 43 6f 6d 6d |etMachin|e., Comm|
|00001110| 61 6e 64 20 26 20 72 65 | 74 75 72 6e 2c 20 22 22 |and & re|turn, ""|
|00001120| 29 29 20 74 68 65 6e 20 | 72 65 74 75 72 6e 20 66 |)) then |return f|
|00001130| 61 6c 73 65 0d 20 20 2d | 2d 0d 20 20 2d 2d 20 4e |alse.  -|-.  -- N|
|00001140| 6f 77 20 65 6e 74 65 72 | 20 61 20 6c 6f 6f 70 20 |ow enter| a loop |
|00001150| 74 68 61 74 20 73 65 61 | 72 63 68 73 20 66 6f 72 |that sea|rchs for|
|00001160| 20 65 69 74 68 65 72 20 | 2d 0d 20 20 2d 2d 20 d4 | either |-.  -- .|
|00001170| 23 23 23 d5 20 64 65 6c | 69 6d 69 74 65 64 20 73 |###. del|imited s|
|00001180| 74 72 69 6e 67 73 20 74 | 68 61 74 20 63 6f 6e 74 |trings t|hat cont|
|00001190| 61 69 6e 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |ain erro|r messag|
|000011a0| 65 73 20 2d 20 6f 72 0d | 20 20 2d 2d 20 d4 40 40 |es - or.|  -- .@@|
|000011b0| 40 d5 20 64 65 6c 69 6d | 69 74 65 64 20 73 74 72 |@. delim|ited str|
|000011c0| 69 6e 67 73 20 74 68 61 | 74 20 20 63 6f 6e 74 61 |ings tha|t  conta|
|000011d0| 69 6e 20 73 74 61 74 75 | 73 20 6d 65 73 73 61 67 |in statu|s messag|
|000011e0| 65 73 0d 20 20 2d 2d 0d | 20 20 70 75 74 20 74 72 |es.  --.|  put tr|
|000011f0| 75 65 20 69 6e 74 6f 20 | 73 74 61 74 75 73 0d 20 |ue into |status. |
|00001200| 20 72 65 70 65 61 74 0d | 20 20 20 20 69 66 20 45 | repeat.|    if E|
|00001210| 78 70 65 63 74 46 72 6f | 6d 53 65 72 76 69 63 65 |xpectFro|mService|
|00001220| 28 54 61 72 67 65 74 4d | 61 63 68 69 6e 65 2c 20 |(TargetM|achine, |
|00001230| 33 30 2c 20 74 72 75 65 | 2c 20 74 72 75 65 2c 20 |30, true|, true, |
|00001240| 22 23 23 23 c6 23 23 23 | 22 2c 20 22 40 40 40 c6 |"###.###|", "@@@.|
|00001250| 40 40 40 22 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |@@@") th|en.     |
|00001260| 20 69 66 20 46 6f 75 6e | 64 53 74 72 69 6e 67 20 | if Foun|dString |
|00001270| 3d 20 30 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |= 0 then|.       |
|00001280| 20 65 78 69 74 20 72 65 | 70 65 61 74 0d 20 20 20 | exit re|peat.   |
|00001290| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|000012a0| 2d 2d 0d 20 20 20 20 20 | 20 2d 2d 20 49 73 20 69 |--.     | -- Is i|
|000012b0| 74 20 61 6e 20 65 72 72 | 6f 72 20 73 74 72 69 6e |t an err|or strin|
|000012c0| 67 2c 20 69 66 20 73 6f | 20 64 69 73 70 6c 61 79 |g, if so| display|
|000012d0| 20 69 74 20 61 6e 64 20 | 65 78 69 74 20 74 68 65 | it and |exit the|
|000012e0| 20 6c 6f 6f 70 0d 20 20 | 20 20 20 20 2d 2d 0d 20 | loop.  |    --. |
|000012f0| 20 20 20 20 20 69 66 20 | 46 6f 75 6e 64 53 74 72 |     if |FoundStr|
|00001300| 69 6e 67 20 3d 20 31 20 | 74 68 65 6e 0d 20 20 20 |ing = 1 |then.   |
|00001310| 20 20 20 20 20 62 65 65 | 70 0d 20 20 20 20 20 20 |     bee|p.      |
|00001320| 20 20 70 75 74 20 22 73 | 74 61 74 75 73 3a 20 22 |  put "s|tatus: "|
|00001330| 20 26 20 45 78 74 72 61 | 63 74 4d 65 73 73 61 67 | & Extra|ctMessag|
|00001340| 65 28 63 6f 6e 74 72 6f | 6c 44 61 74 61 2c 20 22 |e(contro|lData, "|
|00001350| 23 23 23 22 29 20 69 6e | 74 6f 20 66 6c 64 20 22 |###") in|to fld "|
|00001360| 53 74 61 74 75 73 22 0d | 20 20 20 20 20 20 20 20 |Status".|        |
|00001370| 65 78 69 74 20 72 65 70 | 65 61 74 0d 20 20 20 20 |exit rep|eat.    |
|00001380| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 2d |  end if|.      -|
|00001390| 2d 0d 20 20 20 20 20 20 | 2d 2d 20 49 73 20 69 74 |-.      |-- Is it|
|000013a0| 20 61 6e 20 73 74 61 74 | 75 73 20 73 74 72 69 6e | an stat|us strin|
|000013b0| 67 2c 20 69 66 20 73 6f | 20 64 69 73 70 6c 61 79 |g, if so| display|
|000013c0| 20 69 74 20 61 6e 64 20 | 74 68 65 6e 20 72 65 61 | it and |then rea|
|000013d0| 63 74 20 0d 20 20 20 20 | 20 20 2d 2d 20 61 63 63 |ct .    |  -- acc|
|000013e0| 6f 72 64 69 6e 67 20 74 | 6f 20 69 74 73 20 63 6f |ording t|o its co|
|000013f0| 6e 74 65 6e 74 73 0d 20 | 20 20 20 20 20 2d 2d 0d |ntents. |     --.|
|00001400| 20 20 20 20 20 20 69 66 | 20 46 6f 75 6e 64 53 74 |      if| FoundSt|
|00001410| 72 69 6e 67 20 3d 20 32 | 20 74 68 65 6e 0d 20 20 |ring = 2| then.  |
|00001420| 20 20 20 20 20 20 70 75 | 74 20 45 78 74 72 61 63 |      pu|t Extrac|
|00001430| 74 4d 65 73 73 61 67 65 | 28 63 6f 6e 74 72 6f 6c |tMessage|(control|
|00001440| 44 61 74 61 2c 20 22 40 | 40 40 22 29 20 69 6e 74 |Data, "@|@@") int|
|00001450| 6f 20 74 65 6d 70 0d 20 | 20 20 20 20 20 20 20 70 |o temp. |       p|
|00001460| 75 74 20 22 73 74 61 74 | 75 73 3a 20 22 20 26 20 |ut "stat|us: " & |
|00001470| 74 65 6d 70 20 69 6e 74 | 6f 20 66 6c 64 20 22 53 |temp int|o fld "S|
|00001480| 74 61 74 75 73 22 0d 20 | 20 20 20 20 20 20 20 2d |tatus". |       -|
|00001490| 2d 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 49 74 20 |-.      |  -- It |
|000014a0| 69 73 20 61 6e 20 69 6e | 69 74 69 61 74 65 20 63 |is an in|itiate c|
|000014b0| 6f 6d 6d 61 6e 64 2c 20 | 73 74 61 72 74 20 6c 6f |ommand, |start lo|
|000014c0| 67 67 69 6e 67 20 74 68 | 65 20 64 61 74 61 0d 20 |gging th|e data. |
|000014d0| 20 20 20 20 20 20 20 2d | 2d 0d 20 20 20 20 20 20 |       -|-.      |
|000014e0| 20 20 69 66 20 74 65 6d | 70 20 63 6f 6e 74 61 69 |  if tem|p contai|
|000014f0| 6e 73 20 22 54 72 61 6e | 73 66 65 72 20 49 6e 69 |ns "Tran|sfer Ini|
|00001500| 74 69 61 74 65 64 22 20 | 74 68 65 6e 0d 20 20 20 |tiated" |then.   |
|00001510| 20 20 20 20 20 20 20 73 | 65 74 20 41 74 74 61 63 |       s|et Attac|
|00001520| 68 4c 6f 67 46 69 6c 65 | 20 6f 66 20 77 69 6e 64 |hLogFile| of wind|
|00001530| 6f 77 20 22 54 61 72 67 | 65 74 4d 61 63 68 69 6e |ow "Targ|etMachin|
|00001540| 65 22 20 74 6f 20 64 61 | 74 61 46 69 6c 65 4e 61 |e" to da|taFileNa|
|00001550| 6d 65 0d 20 20 20 20 20 | 20 20 20 20 20 70 75 74 |me.     |     put|
|00001560| 20 d2 63 61 6e 63 65 6c | d3 20 69 6e 74 6f 20 43 | .cancel|. into C|
|00001570| 75 72 73 6f 72 54 6f 55 | 73 65 0d 20 20 20 20 20 |ursorToU|se.     |
|00001580| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|00001590| 20 20 2d 2d 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |  --.   |     -- |
|000015a0| 49 66 20 69 74 20 69 73 | 20 61 20 63 61 6e 63 65 |If it is| a cance|
|000015b0| 6c 20 63 6f 6d 6d 61 6e | 64 2c 20 73 65 74 20 74 |l comman|d, set t|
|000015c0| 68 65 20 73 74 61 74 75 | 73 20 66 6c 61 67 20 61 |he statu|s flag a|
|000015d0| 6e 64 20 65 78 69 74 20 | 74 68 65 20 6c 6f 6f 70 |nd exit |the loop|
|000015e0| 0d 20 20 20 20 20 20 20 | 20 2d 2d 0d 20 20 20 20 |.       | --.    |
|000015f0| 20 20 20 20 69 66 20 74 | 65 6d 70 20 63 6f 6e 74 |    if t|emp cont|
|00001600| 61 69 6e 73 20 22 43 61 | 6e 63 65 6c 6c 65 64 22 |ains "Ca|ncelled"|
|00001610| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 20 20 | then.  |        |
|00001620| 70 75 74 20 66 61 6c 73 | 65 20 69 6e 74 6f 20 73 |put fals|e into s|
|00001630| 74 61 74 75 73 0d 20 20 | 20 20 20 20 20 20 20 20 |tatus.  |        |
|00001640| 73 65 6e 64 20 22 44 65 | 74 61 63 68 4c 6f 67 46 |send "De|tachLogF|
|00001650| 69 6c 65 22 20 74 6f 20 | 77 69 6e 64 6f 77 20 22 |ile" to |window "|
|00001660| 54 61 72 67 65 74 4d 61 | 63 68 69 6e 65 22 0d 09 |TargetMa|chine"..|
|00001670| 20 20 20 20 20 20 20 20 | 20 70 75 74 20 d2 62 75 |        | put .bu|
|00001680| 73 79 d3 20 69 6e 74 6f | 20 43 75 72 73 6f 72 54 |sy. into| CursorT|
|00001690| 6f 55 73 65 0d 20 20 20 | 20 20 20 20 20 20 20 65 |oUse.   |       e|
|000016a0| 78 69 74 20 72 65 70 65 | 61 74 0d 20 20 20 20 20 |xit repe|at.     |
|000016b0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|000016c0| 20 20 2d 2d 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |  --.   |     -- |
|000016d0| 49 66 20 69 74 20 69 73 | 20 61 20 63 6f 6d 70 6c |If it is| a compl|
|000016e0| 65 74 69 6f 6e 20 63 6f | 6d 6d 61 6e 64 2c 20 64 |etion co|mmand, d|
|000016f0| 65 74 61 63 68 20 74 68 | 65 20 6c 6f 67 67 69 6e |etach th|e loggin|
|00001700| 67 20 66 69 6c 65 2c 20 | 65 78 69 74 20 74 68 65 |g file, |exit the|
|00001710| 20 6c 6f 6f 70 0d 20 20 | 20 20 20 20 20 20 2d 2d | loop.  |      --|
|00001720| 0d 20 20 20 20 20 20 20 | 20 69 66 20 74 65 6d 70 |.       | if temp|
|00001730| 20 63 6f 6e 74 61 69 6e | 73 20 22 54 72 61 6e 73 | contain|s "Trans|
|00001740| 66 65 72 20 43 6f 6d 70 | 6c 65 74 65 22 20 74 68 |fer Comp|lete" th|
|00001750| 65 6e 0d 20 20 20 20 20 | 20 20 20 20 20 73 65 6e |en.     |     sen|
|00001760| 64 20 22 44 65 74 61 63 | 68 4c 6f 67 46 69 6c 65 |d "Detac|hLogFile|
|00001770| 22 20 74 6f 20 77 69 6e | 64 6f 77 20 22 54 61 72 |" to win|dow "Tar|
|00001780| 67 65 74 4d 61 63 68 69 | 6e 65 22 0d 09 20 20 20 |getMachi|ne"..   |
|00001790| 20 20 20 20 20 20 70 75 | 74 20 d2 62 75 73 79 d3 |      pu|t .busy.|
|000017a0| 20 69 6e 74 6f 20 43 75 | 72 73 6f 72 54 6f 55 73 | into Cu|rsorToUs|
|000017b0| 65 0d 20 20 20 20 20 20 | 20 20 20 20 65 78 69 74 |e.      |    exit|
|000017c0| 20 72 65 70 65 61 74 0d | 20 20 20 20 20 20 20 20 | repeat.|        |
|000017d0| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 65 6e 64 |end if. |     end|
|000017e0| 20 69 66 0d 20 20 20 20 | 65 6c 73 65 0d 20 20 20 | if.    |else.   |
|000017f0| 20 20 20 70 75 74 20 66 | 61 6c 73 65 20 69 6e 74 |   put f|alse int|
|00001800| 6f 20 73 74 61 74 75 73 | 0d 20 20 20 20 20 20 65 |o status|.      e|
|00001810| 78 69 74 20 72 65 70 65 | 61 74 0d 20 20 20 20 65 |xit repe|at.    e|
|00001820| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 72 65 70 65 |nd if.  |end repe|
|00001830| 61 74 0d 20 20 72 65 74 | 75 72 6e 20 73 74 61 74 |at.  ret|urn stat|
|00001840| 75 73 0d 65 6e 64 20 54 | 72 61 6e 73 66 65 72 46 |us.end T|ransferF|
|00001850| 69 6c 65 0d 0d 6f 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ile..o==|========|
|00001860| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001870| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001880| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001890| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 6f 0d 0d 66 75 6e 63 |========|=o..func|
|000018a0| 74 69 6f 6e 20 45 78 74 | 72 61 63 74 4d 65 73 73 |tion Ext|ractMess|
|000018b0| 61 67 65 20 54 61 72 67 | 65 74 2c 20 54 65 78 74 |age Targ|et, Text|
|000018c0| 0d 20 20 70 75 74 20 74 | 68 65 20 6e 75 6d 62 65 |.  put t|he numbe|
|000018d0| 72 20 6f 66 20 63 68 61 | 72 73 20 69 6e 20 54 65 |r of cha|rs in Te|
|000018e0| 78 74 20 69 6e 74 6f 20 | 78 78 0d 20 20 72 65 70 |xt into |xx.  rep|
|000018f0| 65 61 74 0d 20 20 20 20 | 70 75 74 20 6f 66 66 73 |eat.    |put offs|
|00001900| 65 74 28 54 65 78 74 2c | 20 54 61 72 67 65 74 29 |et(Text,| Target)|
|00001910| 20 69 6e 74 6f 20 70 6f | 73 6e 0d 20 20 20 20 69 | into po|sn.    i|
|00001920| 66 20 70 6f 73 6e 20 3d | 20 30 20 74 68 65 6e 20 |f posn =| 0 then |
|00001930| 72 65 74 75 72 6e 28 54 | 61 72 67 65 74 29 0d 20 |return(T|arget). |
|00001940| 20 20 20 64 65 6c 65 74 | 65 20 63 68 61 72 20 70 |   delet|e char p|
|00001950| 6f 73 6e 20 74 6f 20 28 | 70 6f 73 6e 2b 78 78 29 |osn to (|posn+xx)|
|00001960| 20 6f 66 20 54 61 72 67 | 65 74 0d 20 20 65 6e 64 | of Targ|et.  end|
|00001970| 20 72 65 70 65 61 74 0d | 65 6e 64 20 45 78 74 72 | repeat.|end Extr|
|00001980| 61 63 74 4d 65 73 73 61 | 67 65 0d 0d 0d 45 78 61 |actMessa|ge...Exa|
|00001990| 6d 70 6c 65 20 4e 6f 2e | 20 35 20 2d 20 45 64 69 |mple No.| 5 - Edi|
|000019a0| 74 20 53 65 72 76 69 63 | 65 20 53 65 6c 65 63 74 |t Servic|e Select|
|000019b0| 69 6f 6e 2e 0d a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |ion.....|........|
|000019c0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 a5 a5 a5 a5 |........|........|
|000019d0| a5 a5 a5 a5 a5 a5 a5 a5 | a5 a5 a5 a5 0d 0d 6f 6e |........|......on|
|000019e0| 20 45 64 69 74 53 65 72 | 76 69 63 65 54 65 78 74 | EditSer|viceText|
|000019f0| 0d 20 20 47 6c 6f 62 61 | 6c 20 45 64 69 74 6f 72 |.  Globa|l Editor|
|00001a00| 4e 61 6d 65 73 2c 20 41 | 63 74 69 76 65 53 65 72 |Names, A|ctiveSer|
|00001a10| 76 69 63 65 0d 20 20 2d | 2d 0d 20 20 2d 2d 20 53 |vice.  -|-.  -- S|
|00001a20| 65 6c 65 63 74 20 74 68 | 65 20 63 6f 6e 74 65 6e |elect th|e conten|
|00001a30| 74 73 20 6f 66 20 74 68 | 65 20 74 65 72 6d 69 6e |ts of th|e termin|
|00001a40| 61 6c 20 65 6d 75 6c 61 | 74 69 6f 6e 20 73 63 72 |al emula|tion scr|
|00001a50| 65 65 6e 20 61 6e 64 20 | 74 68 65 6e 20 0d 20 20 |een and |then .  |
|00001a60| 2d 2d 20 70 75 74 20 74 | 68 65 20 63 6f 6e 74 65 |-- put t|he conte|
|00001a70| 6e 74 73 20 69 6e 74 6f | 20 61 20 76 61 72 69 61 |nts into| a varia|
|00001a80| 62 6c 65 0d 20 20 2d 2d | 0d 20 20 73 65 6e 64 20 |ble.  --|.  send |
|00001a90| 53 65 6c 65 63 74 41 6c | 6c 20 74 6f 20 77 69 6e |SelectAl|l to win|
|00001aa0| 64 6f 77 20 41 63 74 69 | 76 65 53 65 72 76 69 63 |dow Acti|veServic|
|00001ab0| 65 0d 20 20 70 75 74 20 | 74 68 65 20 54 65 72 6d |e.  put |the Term|
|00001ac0| 69 6e 61 6c 53 65 6c 65 | 63 74 69 6f 6e 20 6f 66 |inalSele|ction of|
|00001ad0| 20 77 69 6e 64 6f 77 20 | 41 63 74 69 76 65 53 65 | window |ActiveSe|
|00001ae0| 72 76 69 63 65 20 69 6e | 74 6f 20 54 65 78 74 0d |rvice in|to Text.|
|00001af0| 20 20 2d 2d 0d 20 20 2d | 2d 20 43 72 65 61 74 65 |  --.  -|- Create|
|00001b00| 20 61 20 74 65 78 74 20 | 65 64 69 74 20 77 69 6e | a text |edit win|
|00001b10| 64 6f 77 20 63 61 6c 6c | 65 64 20 d4 53 65 6c 65 |dow call|ed .Sele|
|00001b20| 63 74 65 64 20 54 65 78 | 74 d5 20 6c 65 61 76 69 |cted Tex|t. leavi|
|00001b30| 6e 67 20 74 68 65 20 77 | 69 6e 64 6f 77 0d 20 20 |ng the w|indow.  |
|00001b40| 2d 2d 20 68 69 64 64 65 | 6e 2e 20 54 68 65 6e 20 |-- hidde|n. Then |
|00001b50| 6c 6f 61 64 20 74 68 65 | 20 72 65 74 72 69 65 76 |load the| retriev|
|00001b60| 65 64 20 64 61 74 61 20 | 61 6e 64 20 66 69 6e 61 |ed data |and fina|
|00001b70| 6c 6c 79 20 73 68 6f 77 | 20 74 68 65 20 77 69 6e |lly show| the win|
|00001b80| 64 6f 77 0d 20 20 2d 2d | 0d 20 20 4f 70 65 6e 45 |dow.  --|.  OpenE|
|00001b90| 64 69 74 6f 72 20 22 53 | 65 6c 65 63 74 65 64 20 |ditor "S|elected |
|00001ba0| 54 65 78 74 22 2c 20 66 | 61 6c 73 65 20 0d 20 20 |Text", f|alse .  |
|00001bb0| 69 66 20 74 68 65 20 72 | 65 73 75 6c 74 20 3d 20 |if the r|esult = |
|00001bc0| 66 61 6c 73 65 20 74 68 | 65 6e 20 65 78 69 74 20 |false th|en exit |
|00001bd0| 45 64 69 74 53 65 72 76 | 69 63 65 54 65 78 74 0d |EditServ|iceText.|
|00001be0| 0d 20 20 73 65 74 20 54 | 65 78 74 20 6f 66 20 77 |.  set T|ext of w|
|00001bf0| 69 6e 64 6f 77 20 22 53 | 65 6c 65 63 74 65 64 20 |indow "S|elected |
|00001c00| 54 65 78 74 22 20 74 6f | 20 74 65 78 74 0d 20 20 |Text" to| text.  |
|00001c10| 73 65 74 20 76 69 73 69 | 62 6c 65 20 6f 66 20 77 |set visi|ble of w|
|00001c20| 69 6e 64 6f 77 20 22 53 | 65 6c 65 63 74 65 64 20 |indow "S|elected |
|00001c30| 54 65 78 74 22 20 74 6f | 20 74 72 75 65 20 20 0d |Text" to| true  .|
|00001c40| 65 6e 64 20 45 64 69 74 | 53 65 72 76 69 63 65 54 |end Edit|ServiceT|
|00001c50| 65 78 74 0d 00 00 00 00 | 00 00 00 00 00 00 00 00 |ext.....|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c80| 00 00 01 00 00 00 01 1a | 00 00 00 1a 00 00 00 32 |........|.......2|
|00001c90| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0d |........|........|
|00001ca0| 4e 6f 72 6d 61 6c 20 69 | 6e 64 65 6e 74 08 48 65 |Normal i|ndent.He|
|00001cb0| 0e 53 61 6d 70 6c 65 20 | 53 63 72 69 70 74 73 53 |.Sample |ScriptsS|
|00001cc0| 02 00 00 00 50 61 72 74 | 53 49 54 78 00 00 00 00 |....Part|SITx....|
|00001cd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00001ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cf0| 00 00 ab 40 52 6d 00 00 | 00 00 00 00 01 4c 04 80 |...@Rm..|.....L..|
|00001d00| 10 00 15 04 80 10 00 15 | 0a 00 18 00 02 18 00 00 |........|........|
|00001d10| 00 00 18 00 04 80 10 00 | 15 00 00 01 c0 01 0e ff |........|........|
|00001d20| 17 e7 00 00 00 00 00 00 | 10 02 d0 11 05 a0 0f 08 |........|........|
|00001d30| 00 02 20 58 21 c0 04 40 | 17 e8 00 00 00 00 00 00 |.. X!..@|........|
|00001d40| 10 02 d0 11 02 d0 0f 08 | 00 02 20 58 21 c0 04 40 |........|.. X!..@|
|00001d50| 14 e9 00 00 00 00 00 00 | 10 02 d0 0f 08 00 02 20 |........|....... |
|00001d60| 58 21 c0 04 40 ff ff ff | ff ff ff ff ff ff 11 f3 |X!..@...|........|
|00001d70| 00 00 00 00 00 00 0f 08 | 00 02 10 e0 21 c0 20 40 |........|....!. @|
|00001d80| 00 00 00 16 00 01 00 00 | 00 00 00 0b 00 09 00 04 |........|........|
|00001d90| 00 00 00 09 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00001da0| 01 1a 00 00 00 1a 00 00 | 00 32 00 58 6a 80 0d 3a |........|.2.Xj..:|
|00001db0| 00 00 00 1c 00 32 00 00 | 73 74 79 6c 00 00 00 0a |.....2..|styl....|
|00001dc0| 00 80 ff ff 00 00 00 00 | 00 58 c6 f0 00 00 00 00 |........|.X......|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+